home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 5 / Amiga Tools 5.iso / internet-tools / aweb / aweb-mailto-yam / awebmailtoyam.rexx < prev   
Encoding:
OS/2 REXX Batch file  |  1996-04-27  |  1.3 KB  |  49 lines
  1. /* AWEBmailtoYAM  ©1996 ALeX Kazik*/
  2. OPTIONS RESULTS
  3. PARSE ARG mailto pubscreen
  4.  
  5. IF ~SHOW('P','YAM') THEN DO  
  6.     ADDRESS COMMAND 'run <>NIL: YAM:YAM'
  7.     i = 15
  8.     DO UNTIL (SHOW('P','YAM')) | (i=0)
  9.         ADDRESS COMMAND 'Wait 1'
  10.         i = i - 1
  11.     END
  12.     IF ~SHOW('P','YAM') THEN DO  
  13.         ADDRESS COMMAND 'RequestChoice <>NIL: "Error" "Could''nt find/start YAM!" "OK" PUBSCREEN'pubscreen
  14.         EXIT
  15.     END
  16. END
  17.  
  18. ADDRESS 'YAM'
  19. WriteMailTo mailto
  20. ADDRESS COMMAND 'C:ed "T:WriteMail.tmp" WINDOW "RAW:0/15/640/465/MailTo: 'mailto'/CLOSE/SCREEN'pubscreen'" WITH "AWEBmailtoYAM.ed"'
  21. IF EXISTS("T:WriteMail.tmp")=0 THEN
  22.   EXIT
  23. CALL OPEN(4,'T:WriteMail.tmp',r)
  24. CALL OPEN(5,'T:SendMail.tmp',w)
  25. line = READLN(4)
  26. PARSE VAR line 'Subject:' subject
  27. IF subject='' THEN
  28.   subject='Unknown'
  29. WriteSubject '"'subject'"'
  30. DO UNTIL EOF(4)
  31.   line = READLN(4)
  32.   CALL WRITELN(5,line)
  33. END
  34. CALL CLOSE(4)
  35. CALL CLOSE(5)
  36. WriteLetter 'T:SendMail.tmp'
  37.  
  38. ADDRESS COMMAND 'RequestChoice <NIL: >T:ChoiceMail.tmp "All Done." "Thanks for using AWEBmailtoYAM.*n©1996 ALeX Kazik*n*nWhat sould I do now?" "Send it" "2 Outgoing" "Cancel" PUBSCREEN'pubscreen
  39. CALL OPEN(6,'T:ChoiceMail.tmp',r)
  40. line = READLN(6)
  41. CALL CLOSE(6)
  42. IF line='1' THEN
  43.   WriteSend
  44. ELSE IF line='2' THEN
  45.   WriteQueue
  46.  
  47. setfolder 1
  48. ADDRESS COMMAND 'delete <>NIL: T:WriteMail.tmp T:SendMail.tmp T:ChoiceMail.tmp'
  49.